home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / TurboText / Rexx / OpenFile.ttx < prev    next >
Encoding:
Text File  |  1995-12-24  |  375 b   |  21 lines
  1. /*
  2. **      $Id: OpenFile.ttx,v 30.0 1994/06/10 18:06:17 dice Exp $
  3. **
  4. **      VMake integration.  Script for Oxxi TurboText (tm).
  5. **
  6. */
  7. OPTIONS RESULTS
  8. 'GetScreenInfo'
  9. Parse Var Result . '"' Screen '"'
  10. 'GetPort'
  11.  
  12. clip = getclip('TTX_'||Result)
  13. if clip = "" THEN
  14.    DO
  15.       'SetStatusBar No Project Active for this file'
  16.       exit 0
  17.    END
  18.  
  19. ADDRESS VALUE Clip
  20. 'Jump' Screen
  21.